home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
MOVIES
/
TOC.DIR
/
00005_Script_setPoemButtons
< prev
next >
Wrap
Text File
|
1995-11-21
|
3KB
|
93 lines
on setPoemButtons
--- gPoemLists is a list of lists (!) where the first list corresponds
--- to the first page, the second to the second, a pattern is established
global gPoemLists
-- set gPoemLists to []
-- set b to [:]
-- addProp the stuff for page 1
-- addProp b, 8,pB("P11",8)
-- addProp b,9, pB("p12",9,1)
-- addProp b, 10,pB("p13",10,1)
-- addProp b, 11,pB("p14",11)
-- addProp b, 12,pB("P15",12)
-- addProp b, 13,pB("P16",13)
-- append gPoemLists,b
-- set b to [:]
-- -- addProp the stuff for page 2
-- addProp b, 8,pB("P21",8)
-- addProp b, 9,pB("P22",9,1)
-- addProp b, 10,pB("P23",10)
-- addProp b, 11,pB("P24",11)
-- addProp b, 12,pB("P25",12)
-- append gPoemLists,b
-- set b to [:]
-- -- addProp the stuff for page 3
-- addProp b, 8,pB("P31",8)
-- addProp b, 9,pB("P32",9,1)
-- addProp b, 10,pB("P33",10,1)
-- addProp b, 11,pB("P34",11)
-- addProp b, 12,pB("P35",12)
-- append gPoemLists,b
-- set b to [:]
-- addProp the stuff for page 4
-- addProp b, 8,pB("P41",8,1)
-- addProp b, 9,pB("P42",9,1)
-- addProp b, 10,pB("P43",10)
-- addProp b, 11,pB("P44",11)
-- addProp b, 12,pB("P45",12)
-- addProp b, 13,pB("P46",13)
-- append gPoemLists,b
-- set b to [:]
-- addProp the stuff for page 5
--
-- addProp b, 8,pB("P51",8)
-- addProp b, 9,pB("P52",9)
-- addProp b, 10,pB("P53",10,1)
-- addProp b, 11,pB("P54",11)
-- addProp b, 12,pB("P55",12)
-- addProp b, 13,pB("P56",13)
-- append gPoemLists,b
-- set b to [:]
-- addProp the stuff for page 6
-- addProp b, 8,pB("P61",8)
-- addProp b, 9,pB("P62",9)
-- addProp b, 10,pB("P63",10,1)
-- addProp b, 11,pB("P64",11)
-- addProp b, 12,pB("P65",12,1)
-- addProp b, 13,pB("P66",13)
-- append gPoemLists,b
-- set b to [:]
-- addProp the stuff for page 7
-- addProp b, 8,pB("P71",8)
-- addProp b, 9,pB("P72",9)
-- addProp b, 10,pB("P73",10)
-- addProp b, 11,pB("P74",11)
-- addProp b, 12,pB("P75",12)
-- addProp b, 13,pB("P76",13)
-- append gPoemLists,b
-- set b to [:]
-- addProp the stuff for page 8
-- addProp b, 8,pB("P81",8)
-- addProp b, 9,pB("P82",9)
-- addProp b, 10,pB("P83",10)
-- addProp b, 11,pB("P84",11)
-- addProp b, 12,pB("P85",12)
-- addProp b, 13,pB("P86",13)
-- append gPoemLists,b
-- set b to [:]
-- addProp the stuff for page 9
-- addProp b, 8,pB("P91",8,1)
-- addProp b, 9,pB("P92",9)
-- addProp b, 10,pB("P93",10)
-- addProp b, 11,pB("P94",11,1)
-- addProp b, 12,pB("P95",12)
-- addProp b, 13,pB("P96",13,1)
-- append gPoemLists,b
end setPoemButtons
on pB labelName,spriteChannel,showPoem
--just to save space
return birth(script "spb",labelName, spriteChannel,(showPoem=1))
end pB